
#Region "Summary"
''' -----------------------------------------------------------------------------
''' Project	 : PTT.StationsTracking.Data
''' Class	 : StationsTracking.Data.QueryInvInvoice
''' 
''' -----------------------------------------------------------------------------
''' <summary>
''' Query Result Single Business Entity
''' </summary>
''' <remarks>
''' Sample of business entity coding
''' </remarks>
''' <history>
''' 	[Generater by Nok]	30/6/2549 13:40:54	Created
''' </history>
''' -----------------------------------------------------------------------------
#End Region

#Region ".NET Framework Class Import"
Imports System
Imports System.Xml.Serialization
Imports System.IO
Imports System.Runtime.Serialization
Imports System.Runtime.Serialization.Formatters.Binary
Imports System.Collections
#End Region

<Serializable()> _
Public Class QueryInvInvoice
#Region "Internal member variables"
    Private _BdNumber As String
    Private _InvoiceNo As String
    Private _InvoiceDate As String
#End Region

    Public Sub New()
        _BdNumber = Nothing
        _InvoiceNo = Nothing
        _InvoiceDate = Nothing
    End Sub

    Public Sub New(ByVal BdNumber As String, _
       ByVal InvoiceNo As String, _
       ByVal InvoiceDate As String)
        _BdNumber = BdNumber
        _InvoiceNo = InvoiceNo
        _InvoiceDate = InvoiceDate
    End Sub

#Region "Property"

    Public Property BdNumber() As String
        Get
            Return _BdNumber
        End Get
        Set(ByVal value As String)
            _BdNumber = value
        End Set
    End Property


    Public Property InvoiceNo() As String
        Get
            Return _InvoiceNo
        End Get
        Set(ByVal value As String)
            _InvoiceNo = value
        End Set
    End Property


    Public Property InvoiceDate() As String
        Get
            Return _InvoiceDate
        End Get
        Set(ByVal value As String)
            _InvoiceDate = value
        End Set
    End Property

#End Region
End Class

''' -----------------------------------------------------------------------------
''' Project	 : PTT.StationsTracking.Data
''' Class	 : StationsTracking.Data.QueryInvInvoices
''' 
''' -----------------------------------------------------------------------------
''' <summary>
''' Collection of query result
''' </summary>
''' <remarks>
''' Sample
''' </remarks>
''' <history>
''' 	[NOK'S Generater]	30/6/2549 13:40:54	Created
''' </history>
''' -----------------------------------------------------------------------------
<Serializable()> _
Public Class QueryInvInvoices
    Inherits CollectionBase


    Default Public ReadOnly Property Item(ByVal index As Integer) As QueryInvInvoice
        Get
            If (index < 0 Or index >= Me.InnerList.Count) Then
                Throw New Exception("index has to be between 0 and " & (Me.InnerList.Count - 1).ToString())
            Else
                Return CType(Me.InnerList(index), QueryInvInvoice)
            End If
        End Get
    End Property

    Public Sub Add(ByVal info As QueryInvInvoice)
        Me.InnerList.Add(info)
    End Sub

    Public Sub SetItem(ByVal index As Integer, ByVal value As QueryInvInvoice)
        If (index < 0 Or index >= Me.InnerList.Count) Then
            Throw New Exception("index has to be between 0 and " & (Me.InnerList.Count - 1).ToString())
        Else
            Me.InnerList(index) = value
        End If
    End Sub


End Class
